home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
National Lampoon's Blind Date
/
National Lampoon's Blind Date.iso
/
bd
/
clues2.mmm
/
00053_Script_53
< prev
next >
Wrap
Text File
|
1995-03-01
|
4KB
|
126 lines
---------------------------------------------------
on startMovie
puppetSound 0
end startMovie
---------------------------------------------------
on waitMovieOrPressed chan
repeat while the movieRate of sprite chan > 0
updateStage
if mouseDown() then
set the movieRate of sprite chan = 0
doLastFrame()
exit repeat
end if
end repeat
end waitMovieOrPressed
---------------------------------------------------
on doLastFrame
global returnFrame, returnMovie, nextTextClue
-- only wait if there is a text clue
if nextTextClue > 0 then
repeat while not mouseDown()
nothing
end repeat
end if
-- wait until they release the mouse
repeat while mouseDown()
nothing
end repeat
when mouseUp then dontPassEvent
go to frame returnFrame of movie returnMovie
end doLastFrame
---------------------------------------------------
on getClue
global hintReturn, nextTextClue
if nextTextClue < 1 or nextTextClue > 3 then
set nextTextClue = 1
end if
if hintReturn = "coachOr" or hintReturn = "ride1" or¼
hintReturn = "ride2" then
set nextTextClue = 1
setClueText("rides")
else if (hintReturn >= "s73" and hintReturn <= "s79") or¼
hintReturn = "s170" then
set nextTextClue = 1
setClueText("s73-77")
else if hintReturn >= "s62" and hintReturn <= "s77" then
set nextTextClue = 1
setClueText("s62-77")
else if hintReturn = "s102" or hintReturn = "s106" or¼
hintReturn = "s107" or hintReturn = "s108" or¼
hintReturn = "s109" or hintReturn = "s110" or¼
hintReturn = "s111" or hintReturn = "s112" or¼
hintReturn = "s109b" then
set nextTextClue = 1
setClueText("s102-115")
else if hintReturn = "s115" or hintReturn = "s115b" or¼
hintReturn = "s116" then
set nextTextClue = 1
setClueText("s115-116")
else if hintReturn = "s11" or hintReturn = "s09" then
if nextTextClue = 1 then
set nextTextClue = 2
setClueText("s09-11")
else
set nextTextClue = 1
setClueText("s09-11b")
end if
else if hintReturn = "s12" then
set nextTextClue = 1
setClueText("s12")
else if hintReturn = "s13" or hintReturn = "s17" then
set nextTextClue = 1
setClueText("s13,17")
else if hintReturn >= "s14" and hintReturn <= "s20" then
set nextTextClue = 1
setClueText("s14-20")
else if hintReturn >= "s02" and hintReturn <= "s03" then
set nextTextClue = 1
setClueText("s14-20")
else if hintReturn >= "s04" and hintReturn <= "s10" then
set nextTextClue = 1
setClueText("s02-10b")
else if hintReturn >= "s21" and hintReturn <= "s26" then
set nextTextClue = 1
setClueText("s21-26")
else if hintReturn >= "s32" and hintReturn <= "s41" then
set nextTextClue = 1
setClueText("s32-41")
else if hintReturn >= "s43" and hintReturn <= "s50" then
set nextTextClue = 1
setClueText("s43-50")
else if hintReturn = "s52" or hintReturn = "s60" or¼
hintReturn = "s61" then
set nextTextClue = 1
setClueText("s52-61")
else if hintReturn = "s51" or hintReturn = "s53" or¼
hintReturn = "s54" then
set nextTextClue = 1
setClueText("s51-54")
else if hintReturn >= "s87" and hintReturn <= "s91" then
set nextTextClue = 1
setClueText("s87-91")
else if hintReturn >= "s92" and hintReturn <= "s98" then
if nextTextClue = 3 then
set nextTextClue = 1
setClueText("s92-98b")
else
set nextTextClue = 3
setClueText("s92-98")
end if
else
set nextTextClue = 0
end if
end getClue
---------------------------------------------------
on setClueText clueCastName
puppetSprite 10, TRUE
set the castNum of sprite 10 to the number of cast clueCastName
--set the locH of sprite 10 to (640 - the width of sprite 10) / 2
--set the locV of sprite 10 to (the bottom of sprite 9) + ¼
-- (480 - (the bottom of sprite 9) - the height of sprite 10) / 2
updateStage
end setClueText